home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / Anim2mpegB / An2mp next >
Text File  |  2002-10-27  |  3KB  |  85 lines
  1. echo "c*N"
  2. copy c:copy t:copy
  3. t:copy c:delete t:del
  4. assign Split: Split
  5. Requestfile >env:ANIMname DRAWER RAM: TITLE="Choose anim to convert"
  6. if warn
  7.    echo >env:msg "Operation canceled....!"
  8.    skip end
  9. endif
  10. if not exists $ANIMname
  11.    echo >env:msg "File does not exist....!"
  12.    skip end
  13. endif
  14. Requestfile >env:ANIMdest DRAWER SYS: FILE Default.mpg TITLE="Choose destination path."
  15. if warn
  16.    echo >env:msg "Operation canceled....!"
  17.    skip end
  18. endif
  19. Requestchoice >env:mode2 "" "Select your priority." Quality Compression
  20. Requestchoice >env:mode "" "Do you want scaling ?" Yes No
  21. if $mode eq 1
  22.    SmartScale ask $ANIMname
  23. endif
  24.  
  25. t:del >nil: split:#? env:din env:FT
  26. buildanim $ANIMname Split: SPLIT VERBOSE
  27. echo "*N Animation split, now converting pictures.*N*N"
  28. list >t:conpics sort name split: lformat "echo >env:flast %s"
  29. execute t:conpics
  30.  
  31.  
  32.  
  33.  
  34. ECHO >T:an2mp.param "# This parameter file created by LOMBI"
  35.  
  36. if $mode2 eq 1
  37.    ECHO >>T:an2mp.param "PATTERN   IIIIIIIIIIIIIII"
  38. else
  39.    ECHO >>T:an2mp.param "PATTERN   IBBPBBPBBPBBPBB"
  40. endif
  41.  
  42. ECHO >>T:an2mp.param "OUTPUT    "$ANIMdest
  43.  
  44. ECHO >>T:an2mp.param "BASE_FILE_FORMAT   PPM"
  45. ECHO >>T:an2mp.param "GOP_SIZE    30"
  46. ECHO >>T:an2mp.param "SLICES_PER_FRAME   1" 
  47.  
  48. ECHO >>T:an2mp.param "PIXEL  HALF"
  49. ECHO >>T:an2mp.param "RANGE  10"
  50. ECHO >>T:an2mp.param "PSEARCH_ALG     LOGARITHMIC"
  51. ECHO >>T:an2mp.param "BSEARCH_ALG     CROSS2"
  52. ECHO >>T:an2mp.param "IQSCALE         8"
  53. ECHO >>T:an2mp.param "PQSCALE         10"
  54. ECHO >>T:an2mp.param "BQSCALE         25"
  55.  
  56. ECHO >>T:an2mp.param "REFERENCE_FRAME ORIGINAL"
  57. ECHO >>T:an2mp.param "FORCE_ENCODE_LAST_FRAME"
  58.  
  59. ECHO >>T:an2mp.param "INPUT_DIR       split"
  60. ECHO >>T:an2mp.param "INPUT"
  61. ECHO >>T:an2mp.param "**        [001-$flast]"
  62. ECHO >>T:an2mp.param "END_INPUT"
  63. ECHO >>T:an2mp.param "INPUT_CONVERT   **"
  64.  
  65.  
  66.  
  67.  
  68. t:copy convertMPimage t:cmi
  69. if $mode eq 1
  70.    list >t:ConPics sort name split: lformat "t:copy %s%s t:iff*Nt:CMI noprogress format ppm x $XOUT y $YOUT t:iff to t:ppm*Nt:copy t:ppm %s%s*Necho  %s"
  71. else
  72.    list >t:ConPics sort name split: lformat "t:copy %s%s t:iff*Nt:CMI noprogress format ppm t:iff to t:ppm*Nt:copy t:ppm %s%s*Necho  %s"
  73. endif
  74. execute t:conpics
  75. t:del >nil: t:cmi t:conpics t:ppm t:iff env:mode env:mode2 env:flast
  76. stack 30000
  77. mpeg_encode t:an2mp.param
  78. echo >env:msg " Mpeg animation complete."
  79. lab end
  80. t:del >nil: split:#? t:an2mp.param t:copy env:ANIMname env:ANIMdest
  81. Requestchoice >nil: "" "$msg" OK
  82. t:del >nil: env:msg env:xin env:yin env:xout env:yout t:del
  83. assign Split: REMOVE
  84. endcli
  85.